home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / DSA_Utils.lha / DSA-Utils / DSA_Haeuser.tex < prev    next >
Text File  |  1997-09-21  |  6KB  |  245 lines
  1. \newsavebox{\HausEins}
  2. \newsavebox{\HausZwei}
  3. \newsavebox{\HausDrei}
  4. \newsavebox{\HausVier}
  5. \newsavebox{\HausFuenf}
  6. \newsavebox{\TempelEins}
  7. \newsavebox{\TempelZwei}
  8. \newsavebox{\HotelEins}
  9. \newsavebox{\HotelZwei}
  10. \newsavebox{\HotelDrei}
  11. \newsavebox{\KneipeEins}
  12. \newsavebox{\KneipeZwei}
  13. \newsavebox{\HandwI}
  14. \newsavebox{\HandwII}
  15. \newsavebox{\HandwIII}
  16. \newsavebox{\Gross}
  17. \newsavebox{\HaendlI}
  18. \newsavebox{\HaendlII}
  19. \newsavebox{\HaendlIII}
  20. \newsavebox{\DienstI}
  21. \newsavebox{\DienstII}
  22. \newsavebox{\Heilk}
  23. \newsavebox{\Markt}
  24. \newsavebox{\Teich}
  25. \newsavebox{\BaumEins}
  26. \newsavebox{\BaumZwei}
  27. \newsavebox{\BaumDrei}
  28. \newsavebox{\Leer}
  29.  
  30. \unitlength\un
  31.     % Die vielen % am Zeilenende sind nötig, da sonst einige
  32.     % Gebäude einen Offset haben (und in andere reinragen).
  33. \newcount\xpos \newcount\ypos
  34. \def\cross(#1,#2)(#3,#4){%
  35. % malt ein Viereck mit Kreuz drin; untenlinks=(#1,#2), B,H=#3,#4
  36. \xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
  37. \path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
  38. \path(#1,#2)(\xpos,\ypos)\path(#1,\ypos)(\xpos,#2)%
  39. }
  40. \newcount\dachxa\newcount\dachya\newcount\dachxb\newcount\dachyb
  41. \newcount\mytemp
  42. \def\dachh(#1,#2)(#3,#4){    % macht ein hübsches Dach :) horizontal
  43. \xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
  44. \path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
  45. \mytemp#4\divide\mytemp 2%
  46. \dachya#2\advance\dachya\mytemp%
  47. \multiply\mytemp 3\divide\mytemp 4%
  48. \dachxa#1\advance\dachxa\mytemp%
  49. \dachxb#1\advance\dachxb #3\advance\dachxb-\mytemp%
  50. \path(#1,#2)(\dachxa,\dachya)(#1,\ypos)%
  51. \path(\xpos,#2)(\dachxb,\dachya)(\xpos,\ypos)%
  52. \path(\dachxa,\dachya)(\dachxb,\dachya)%
  53. }
  54. \def\dachv(#1,#2)(#3,#4){    % macht ein hübsches Dach :) vertikal
  55. \xpos#1\advance\xpos#3\ypos#2\advance\ypos#4%
  56. \path(#1,#2)(\xpos,#2)(\xpos,\ypos)(#1,\ypos)(#1,#2)%
  57. \mytemp#3\divide\mytemp 2%
  58. \dachxa#1\advance\dachxa\mytemp%
  59. \multiply\mytemp 3\divide\mytemp 4%
  60. \dachya#2\advance\dachya\mytemp%
  61. \dachyb#2\advance\dachyb #4\advance\dachyb-\mytemp%
  62. \path(#1,#2)(\dachxa,\dachya)(\xpos,#2)%
  63. \path(#1,\ypos)(\dachxa,\dachyb)(\xpos,\ypos)%
  64. \path(\dachxa,\dachya)(\dachxa,\dachyb)%
  65. }
  66. \def\dach(#1,#2)(#3,#4){%
  67.  \ifnum#3>#4\dachh(#1,#2)(#3,#4)%
  68.  \else\dachv(#1,#2)(#3,#4)\fi%
  69. }
  70.  
  71. \savebox{\HausEins}(0,0)[bl]{%
  72. \put(12,19){\framebox(10,5){}}%
  73. \dach(2,2)(25,15)%
  74. }
  75. \savebox{\HausZwei}(0,0)[bl]{%
  76. \put(5,2){\framebox(18,8){}}\path(5,6)(23,6)%
  77. \put(3,12){\dashbox{2}(25,16){}}%
  78. \put(27,4){\circle{4}}%
  79. \put(25,4){\line(1,0){4}}%
  80. }
  81. \savebox{\HausDrei}(0,0)[bl]{%
  82. \dach(10,10)(18,14)%
  83. \put(12,2){\framebox(10,5){}}%
  84. }
  85. \savebox{\HausVier}(0,0)[bl]{%
  86. \path(3,3)(23,3)(23,13)(13,13)(13,27)(3,27)(3,3)%
  87. \path(3,3)(13,13)\path(3,27)(8,22)(13,27)%
  88. \path(23,3)(17,8)(23,13)\path(8,22)(8,8)(17,8)%
  89. \put(23,20){\circle{5}}%
  90. \put(24,16){\circle{3}}%
  91. \put(26,23){\circle{4}}%
  92. }
  93. \savebox{\HausFuenf}(0,0)[bl]{%
  94. \put(8,2){\framebox(14,12){}}%
  95. \path(8,8)(22,8)%
  96. \path(2,20)(8,14)\path(28,20)(22,14)%
  97. \path(8,6)(2,6)(2,20)(28,20)(28,6)(22,6)%
  98. \put(5,27){\circle{4}}%
  99. \put(3,27){\line(1,0){4}}%
  100. \put(20,24){\dashbox{2}(8,6){}}%
  101. }
  102. \savebox{\TempelEins}(0,0)[bl]{%
  103. \path(5,20)(5,2)(17,2)(17,20)%
  104. \put(11,20){\oval(12,8)[t]}%
  105. \path(5,2)(11,5)(17,2)\path(11,5)(11,20)%
  106. \put(18,5){\framebox(5,10){}}%
  107. }
  108. \savebox{\TempelZwei}(0,0)[bl]{%
  109. \path(2,18)(2,2)(28,2)(28,18)%
  110. \path(8,2)(8,27)\path(22,2)(22,27)\path(2,21)(28,21)%
  111. \path(8,21)(4,24.5)\path(22,21)(25.5,24.5)%
  112. \put(15,18){\oval(26,18)[t]}%
  113. }
  114. \savebox{\HotelEins}(0,0)[bl]{%
  115. \dach(2,2)(26,16)%
  116. \put(5,20){\framebox(8,5){}}%
  117. \put(20,25){\circle{4}}%
  118. \put(18,25){\line(1,0){4}}%
  119. }
  120. \savebox{\HotelZwei}(0,0)[bl]{%
  121. \dach(4,2)(12,20)%
  122. \put(20,2){\framebox(8,20){}}%
  123. \path(20,12)(28,12)%
  124. }
  125. \savebox{\HotelDrei}(0,0)[bl]{%
  126. \dach(0,0)(20,15)%
  127. \path(18,10)(28,10)(28,26)(10,26)(10,15)%
  128. \path(28,26)(23,18)(28,10)\path(23,18)(10,18)%
  129. \put(3,27){\circle{4}}%
  130. \put(3,25){\line(0,1){4}}%
  131. }
  132. \savebox{\KneipeEins}(0,0)[bl]{%
  133. \cross(6,3)(20,20)%
  134. \put(20,23){\framebox(8,5){}}%
  135. }
  136. \savebox{\KneipeZwei}(0,0)[bl]{%
  137. \path(17,22)(2,22)(2,2)(22,2)(22,15)%
  138. \put(12,2){\line(0,1){20}}%
  139. \put(17,15){\framebox(10,12){}}%
  140. \put(26,5){\circle{4}}%
  141. \put(24,5){\line(1,0){4}}%
  142. }
  143. \savebox{\HandwI}(0,0)[bl]{%
  144. \dach(5,5)(22,15)%
  145. }
  146. \savebox{\HandwII}(0,0)[bl]{%
  147. \put(14,3){\framebox(10,10){}}%
  148. \dach(4,13)(10,15)%
  149. \put(16,15){\dashbox{2}(10,12){}}%
  150. }
  151. \savebox{\HandwII}(0,0)[bl]{%
  152. \dach(10,3)(10,20)%
  153. \put(3,5){\circle{4}}%
  154. \put(3,3){\line(0,1){4}}%
  155. \put(2,10){\framebox(6,12){}}%
  156. \put(5,10){\line(0,1){12}}%
  157. \put(25,6){\circle{6}}%
  158. \put(27,10){\circle{5}}%
  159. \put(26,17){\circle{7}}%
  160. \put(24,21){\circle{6}}%
  161. \put(25,27){\circle{4}}%
  162. }
  163. \savebox{\HandwIII}(0,0)[b]{%
  164. \dach(3,3)(25,10)%
  165. \put(5,13){\framebox(15,8){}}%
  166. \put(22,15){\framebox(6,6){}}%
  167. \put(22,18){\line(1,0){6}}%
  168. }
  169. \savebox{\Gross}(0,0)[bl]{%
  170. \dach(1,1)(28,20)%
  171. \put(12,21){\framebox(15,8){}}%
  172. }
  173. \savebox{\HaendlI}(0,0)[bl]{%
  174. \dach(15,3)(10,20)%
  175. \cross(2,5)(10,15)%
  176. }
  177. \savebox{\HaendlII}(0,0)[bl]{%
  178. \dach(7,12)(20,15)%
  179. \path(7,22)(2,22)(2,2)(22,2)(22,12)%
  180. \path(2,2)(7,12)%
  181. \put(3,26){\circle{4}}%
  182. \put(1,26){\line(1,0){4}}%
  183. }
  184. \savebox{\HaendlIII}(0,0)[bl]{%
  185. \dach(10,12)(18,10)%
  186. \put(8,24){\framebox(12,5){}}%
  187. }
  188. \savebox{\DienstI}(0,0)[bl]{%
  189. \path(2,2)(28,2)(28,22)(23,22)(23,29)(13,29)(13,24)(7,24)(7,27)(2,27)(2,2)%
  190. \path(2,22)(23,22)%
  191. \path(2,14)(28,14)%
  192. }
  193. \savebox{\DienstII}(0,0)[bl]{%
  194. \dach(5,2)(25,16)%
  195. \put(2,18){\dashbox{2}(20,10){}}%
  196. \put(25,25){\circle{4}}%
  197. \put(25,23){\line(0,1){4}}%
  198. }
  199. \savebox{\Heilk}(0,0)[bl]{%
  200. \put(10,10){\framebox(15,12){}}%
  201. \put(10,16){\line(1,0){15}}%
  202. \put(6,4){\circle{4}}%
  203. \put(6,2){\line(0,1){4}}%
  204. \put(15,23){\framebox(10,6){}}%
  205. }
  206. \savebox{\Markt}(60,60)[bl]{%
  207. \put(2,2){\dashbox{1}(58,58)[bl]{\raisebox{\un}{\footnotesize~Markt}}}%
  208. }
  209. \savebox{\Teich}(0,0)[bl]{%
  210. \put(15,15){\oval(25,20)}%
  211. \multiput(10,8)(0,4){4}{\multiput(0,0)(4,0){4}{\makebox(0,0){\~{}}}}%
  212. }
  213. \savebox{\BaumEins}(0,0)[bl]{%
  214. \put(10,10){\circle{12}}%
  215. \put(15,20){\circle{10}}%
  216. \put(7,22){\circle{8}}%
  217. \put(17,26){\circle{8}}%
  218. \put(23,21){\circle{9}}%
  219. }
  220. \savebox{\BaumZwei}(0,0)[bl]{%
  221. \put(14,19){\circle{12}}%
  222. \put(25,10){\circle{10}}%
  223. \put(17,12){\circle{8}}%
  224. \put(17,23){\circle{8}}%
  225. \put(24,20){\circle{9}}%
  226. }
  227. \savebox{\BaumDrei}(0,0)[bl]{%
  228. \put(5,5){\circle{7}}%
  229. \put(12,5){\circle{6}}%
  230. \put(16,5){\circle{8}}%
  231. \put(23,5){\circle{7}}%
  232. \put(6,15){\circle{5}}%
  233. \put(11,12){\circle{6}}%
  234. \put(19,13){\circle{7}}%
  235. \put(25,11){\circle{9}}%
  236. \put(3,25){\circle{6}}%
  237. \put(10,23){\circle{8}}%
  238. \put(17,21){\circle{6}}%
  239. \put(23,17){\circle{7}}%
  240. \put(26,22){\circle{5}}%
  241. }
  242. \savebox{\Leer}(0,0)[bl]{%
  243.  % Leer eben...
  244. }
  245.